home *** CD-ROM | disk | FTP | other *** search
/ Aminet 23 / Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso / Aminet / dev / misc / Istar.lha / Install_Istar < prev    next >
Text File  |  1997-12-26  |  3KB  |  142 lines
  1. ;;
  2. ;; Install_Istar - Istar installation script for Installer
  3. ;;
  4. ;; Copyright © Andrew Basden, November 1997
  5. ;;
  6. ;;     Installer and Installer project icon
  7. ;;     (c) Copyright 1991-93 Commodore-Amiga, Inc.  All Rights Reserved.
  8. ;;     Reproduced and distributed under license from Commodore.
  9. ;;
  10. ;;     INSTALLER SOFTWARE IS PROVIDED "AS-IS" AND SUBJECT TO CHANGE;
  11. ;;     NO WARRANTIES ARE MADE.  ALL USE IS AT YOUR OWN RISK.  NO LIABILITY
  12. ;;     OR RESPONSIBILITY IS ASSUMED.
  13. ;;
  14.  
  15. ;; -- IstarSys directory
  16.  
  17. (set @path
  18.   (askdir 
  19.      (default "work:")
  20.      (prompt "Where do you want to install the Istar program and its system files? (A new Istar diretory will be created for them.)\n\nThe system files include preferences files and a Docs drawer.")
  21.     (help @makedir-help)
  22.   )
  23. )
  24.  
  25. (set @istarsys (tackon @path "Istar"))
  26.  
  27. (if (NOT (exists @istarsys)))
  28.   (makedir @istarsys 
  29.     (infos)
  30.   )
  31.  
  32. ;; -- The User directory
  33.  
  34. (set @user
  35.   (askdir 
  36.      (default @istarsys)
  37.      (prompt "Where do you want the user directories to go?\n\nOften this is in the same directory as the Istar program, but you can place it elsewhere.")
  38.     (help "The user directories include: KBs, Templates, Dump")
  39.   )
  40. )
  41.  
  42. ;; -- Copy the system
  43.  
  44. (copyfiles
  45.   (prompt "Copy the Istar program and Prefs files?")
  46.   (help "This will copy the Istar program")
  47.   (source "")
  48.   (dest @istarsys)
  49.         (pattern "Istar#?")
  50.   (files)
  51.         (infos)
  52.   (confirm)
  53. )
  54.  
  55. (copylib
  56.   (prompt "Install iff library?")
  57.   (help "IFF library reads pictures.  You should normally Proceed here.")
  58.   (source "iff.library")
  59.   (dest "libs:")
  60.   (confirm)
  61. )
  62.  
  63. (set @docs (tackon @istarsys "Docs"))
  64.  
  65. (if (NOT (exists @docs)))
  66.   (makedir @docs 
  67.     (infos)
  68.   )
  69.  
  70. (copyfiles
  71.   (prompt "Copy the Documentation files?")
  72.   (help "This will copy the Docs drawer.  You should do this.")
  73.   (source "docs")
  74.   (dest @docs)
  75.         (pattern "#?")
  76.   (files)
  77.         (infos)
  78.   (confirm)
  79. )
  80.  
  81. ;; -- Copy over the user sample stuff
  82.  
  83. (set @user_kb (tackon @user "KBs"))
  84.  
  85. (if (NOT (exists @user_kb)))
  86.   (makedir @user_kb 
  87.     (infos)
  88.   )
  89.  
  90. (set @user_pics (tackon @user "Pics"))
  91.  
  92. (if (NOT (exists @user_pics)))
  93.   (makedir @user_pics 
  94.     (infos)
  95.   )
  96.  
  97. (set @user_tmpl (tackon @user "Templates"))
  98.  
  99. (if (NOT (exists @user_tmpl)))
  100.   (makedir @user_tmpl 
  101.     (infos)
  102.   )
  103.  
  104. (set @user_dump (tackon @user "Dump"))
  105.  
  106. (if (NOT (exists @user_dump)))
  107.   (makedir @user_dump 
  108.     (infos)
  109.   )
  110.  
  111. (copyfiles
  112.   (prompt "Copy the sample knowledge bases?")
  113.   (help "This will copy example KBs.  Some are used in the tutorials")
  114.   (source "KBs")
  115.   (dest @user_kb)
  116.         (pattern "#?")
  117.   (files)
  118.         (infos)
  119.   (confirm)
  120. )
  121.  
  122. ;; not yet used
  123. ;;(copyfiles
  124. ;;  (prompt "Copy the Template KBs?")
  125. ;;  (help "Templates are initial knowledge bases with various item, attribute and relationship types set up, each for a particular purpose.  This will copy them over.  You should do this.")
  126. ;;  (source "Templates")
  127. ;;  (dest @user_tmpl)
  128. ;;        (pattern "#?")
  129. ;;  (files)
  130. ;;        (infos)
  131. ;;  (confirm)
  132. ;;)
  133.  
  134. (set @istar-assign (cat "assign IstarSys: " @istarsys "\nassign KBTools:" @user))
  135. (startup "Istar"
  136.   (prompt "Istar assigns needs to be added to the \"S:user-startup\".")
  137.   (help "Not strictly necessary, but avoids annoying requesters.  The assigns made are to IstarSys, where various system files are found, and KBTools, where various user directories are sought: KBs, Dump, Templates")
  138.   (command @istar-assign)
  139.  
  140. )
  141.  
  142.